home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
051-075
/
disk_065
/
pascaltoc
/
p2c.h
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
1KB
|
36 lines
/*---- p2c.h ------------------------------------------------------
Defines and Global Variable for the Pascal to C translator
3/25/87 Daniel Kegel (seismo!rochester!srs!dan)
-------------------------------------------------------------------*/
#define MAXTOKLEN 2048 /* maximum token length */
/* Note: even comments are jammed into a token; that's why this is big. */
typedef struct { /* holds keywords, operators, etc. */
char str[MAXTOKLEN];
int kind; /* code from table of wnodes */
} token;
typedef struct {
int ktype; /* the meaning of the keyword */
char *pname; /* the Pascal name of the keyword */
char *cname; /* the C name of the keyword */
} wnode;
/* Allocate or Reallocate n 'type' items */
#define MALLOC(type, n) \
((type *) DoMalloc((unsigned) sizeof(type) * (n)))
#define REALLOC(ptr, type, n) \
((type *) DoRealloc((char *)ptr, (unsigned) sizeof(type) * (n)))
#ifndef TRUE
#define TRUE 1
#define FALSE 0
#endif
#ifndef boolean
#define boolean int
#endif
/*--- The Global Variable ---------*/
extern token cTok; /* current token from scanner */